Creating images with R

With a little bit of magick

body {font-family: "Times New Roman", Times, serif;
background-color: lightblue; border-style: outset; font-size: 20px;
}

My meme

This meme shows a dog being stressed about coding. I have used dog images, in particular, because dogs are adorable creatures and can be quite hilarious with their dynamic human-like expressions. The motivation behind this meme was coding itself and a similar meme I saw few weeks ago.

The meme

library(magick)
# adding first image
happy_dog <- image_read(path="happydog.jpg") %>%
image_scale(500)

# making first blank box
yellow_blank <- image_blank(width=500, height=200, color="#ffff00") %>%
  
image_annotate(text="*running a code", color="#000000", size=80,
               font="impact", gravity="center")

#adding second image
confused_dog <- image_read(path="confuseddog.jpg") %>%
  image_scale(500)

#making second blank box
yellow_blank2 <- image_blank(width=500, height=200, color="#ffff00") %>%
  
  image_annotate(text="*1 error", color="#000000", size=80,
                 font="impact", gravity="center")

#adding third image
smirking_dog <- image_read(path="smirkingdog.jpg") %>%
  image_scale(500)

#making third blank box
yellow_blank3 <- image_blank(width=500, height=200, color="#ffff00") %>%
  
  image_annotate(text="*fixes error", color="#000000", size=80,
                 font="impact", gravity="center")

#adding fourth image
devastated_dog <- image_read(path="devastateddog1.jpg") %>%
  image_scale(500)

#making fourth blank box
yellow_blank4 <- image_blank(width=500, height=200, color="#ffff00") %>%
  image_annotate(text="*10 errors\n12 warnings", color="#000000", size=80,
                 font="impact", gravity="center")
#making vector
meme_vector <- c(happy_dog,purple_blank )
first_part <- image_append(meme_vector)

meme_vector2 <- c(confused_dog, purple_blank2)
second_part <- image_append(meme_vector2)

meme_vector3 <- c(smirking_dog, purple_blank3)
third_part <- image_append(meme_vector3)

meme_vector4 <- c(devastated_dog, purple_blank4)
fourth_part <- image_append(meme_vector4)

# stacking them
stacking_vectors <- c(first_part, second_part, third_part, fourth_part) %>%
image_append(stack = TRUE ) %>%
  image_scale(600)

image_write(stacking_vectors, "my_meme5.png")

My animation

I tried to make these animations and memes as relatable to us students as possible. I got the motivation to make this meme whilst I was coding for the meme. It’s based on the small awarding technique after studying.

The animation

library(magick)
#making frames

frame2 <- image_read("image1.png")
  
frame3 <- image_read("image2.png")
  
frame4 <- image_read("image3.png")
 
frame5 <- image_read("image4.png") 
  
frame6 <- image_read("image5.png")
  
frame7 <- image_read("image6.png") 
  
frame8 <- image_read("image7.png")

frame9 <- image_read("image8.png")
# making vector  
frames <- c(frame2, frame3, frame4, frame5, frame6, frame7, frame8)
animation <- image_morph(frames) %>%
  image_animate(fps=50) %>%
  image_annotate(text="Me on my way to treat myself\n after 10 mins 
                 of studying",
                 font=" Times New Roman",color="white", size=60, 
                 gravity="south") %>%
  image_scale(400)

image_write(animation, "my_animation4.gif")